home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / dvlprstc.hqx / Developer Stack 1.3r / card_23216.txt < prev    next >
Text File  |  1991-04-30  |  2KB  |  79 lines
  1. -- card: 23216 from stack: in.3r
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 14090
  5. -- name: MergeStacks
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=77 top=119 right=149 bottom=282
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Merge Stacks
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   if the optionkey is down then pass mouseup
  23.  
  24.   global destination,source
  25.   put "Copy cards FROM which stack?"
  26.   put filename("STAK") into source
  27.   if source is empty then exit mouseUp
  28.   put "Paste cards TO the end of which stack?"
  29.   put filename("STAK") into destination
  30.   if destination is empty then exit mouseUp
  31.   answer "Merge stack " & quote & source & quote & " and " & quote & destination & quote & " ?" with "Merge" or "Cancel"                   --give user chance to bail out
  32.   if it = "Cancel" then exit mouseUp
  33.   show message box
  34.   put "After I'm done, I'll leave you at the merged stacks." into message
  35.   set lockScreen to true
  36.   go to stack source
  37.   repeat for the number of cards
  38.     domenu copy card
  39.     go next card
  40.     push card
  41.     go last card of destination
  42.     domenu paste card
  43.     pop card
  44.   end repeat
  45.   set lockScreen to false
  46.   go to stack destination
  47.   put "Merge Complete! You're at the beginning of stack " & destination
  48. end mouseUp
  49.  
  50.  
  51. -- part 2 (field)
  52. -- low flags: 01
  53. -- high flags: 0004
  54. -- rect: left=66 top=51 right=105 bottom=300
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 0
  58. -- font id: 3
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: 
  63.  
  64.  
  65. -- part contents for background part 5
  66. ----- text -----
  67. 6
  68.  
  69. -- part contents for background part 12
  70. ----- text -----
  71. MergeStacks
  72.  
  73. -- part contents for card part 2
  74. ----- text -----
  75. This button will append one stack onto the end of another one.
  76.  
  77. -- part contents for background part 13
  78. ----- text -----
  79. Buttons